home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 65
/
065.d81
/
ss 1990 demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
752b
|
30 lines
10 poke53281,0:poke53280,0:print"[147]"chr$(142)chr$(8)
20 sys57812"ss 1990",8,0:poke780,0:poke781,60:poke782,3:sys65493
22 fori=1to7:readc%(i):next
24 data 166,169,122,118,191,123,119
26 q=rnd(-ti)
30 fori=1to7
40 print"[147]"
50 poke646,rnd(1)*14+2
52 s$="":forj=1to39:s$=s$+chr$(c%(i)):next
54 fork=1to21:prints$:next
60 poke214,rnd(1)*19:print
70 ta=rnd(1)*19
80 printtab(ta)"[176][192][192][192][192][192][192][192][192][192][192][174]"
90 printtab(ta)"[221] screen"i"[157] [221]"
100 printtab(ta)"[173][192][192][192][192][192][192][192][192][192][192][189]"
110 sys828,i
120 next
130 poke214,22:print
140 print"[154]press 1[154], 2[154], 3[154], 4[154], 5[154], 6[154], 7,[154] or q[154] to quit"
150 geta$:ifa$<"1"ora$>"7"anda$<>"q"then150
160 ifa$="q"then200
170 sys831,val(a$)
180 goto130
200 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
210 ifer<>63thenend
220 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8,1"
230 print"run"
240 poke631,13:poke632,13:poke198,2:end
10000 open15,8,15,"s0:ss 1990 demo":close15:save"ss 1990 demo",8